COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	begin comment the POINTY slave
C00004 ENDMK
C⊗;
begin comment the POINTY slave;

define !="comment";

! here is the S-expression form

(PR
    (BL
        (EVAR ELFREADY TENREADY)
        (FVAR DEST)
	(ASSERT (AF BARM = BPARK))

	(COMMENT Make sure the arm starts at BPARK)
	(MO BARM BPARK (DURATION = 3))

	(AS DEST BPARK)
        (WH 1
	    (BL (COMMENT Wait for TEN, move to DEST, forever)
                (PRINT "WAITING FOR SIGNAL")
                (EV ELFREADY +)
                (EV TENREADY -)
                (ASSERT (AF BARM = BPARK))
                (MO BARM DEST (DURATION = 3))
                )
	    )
        )
    );

event elfready, tenready;  frame dest;
assert BARM=BPARK;	! make sure the arm starts at BPARK;
move BARM to BPARK; ! with duration=3;

while true do
    begin ! Wait for TEN, move to DEST, forever;
    print ("WAITING FOR SIGNAL");
    signal elfready; wait tenready;
    assert BARM=BPARK;
    move BARM to BPARK; ! with duration=3;
    end;
end;